EXTERNAL RECURSIVE PROCEDURE ALPRIN(RANY S);
EXTERNAL SIMPLE PROCEDURE PRCRLF;
EXTERNAL SIMPLE STRING PROCEDURE CVRAD(REAL W);
EXTERNAL SIMPLE STRING PROCEDURE CVDEG(REAL W);
EXTERNAL SIMPLE STRING PROCEDURE CVGX(REAL R);
EXTERNAL INTEGER PSPCIX;

EXTERNAL PROCEDURE PVDO(RPTR(VARIABLE) V;ITEMVAR WLD);
EXTERNAL PROCEDURE PVLDO(RCELL C;ITEMVAR WLD);

REQUIRE "ALPRIN.REL[HAL,HE]" LOAD_MODULE;